home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 February / LiquidLibrary 2005 February - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / gs_dps2.ps < prev    next >
Text File  |  2003-01-03  |  7KB  |  207 lines
  1. %    Copyright (C) 1990, 1996, 1997, 1998, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % Initialization file for basic Display PostScript functions
  8. % that are also included in Level 2.
  9.  
  10. level2dict begin
  11.  
  12. % ------ Halftones ------ %
  13.  
  14. /.makestackdict
  15.     { { counttomark -1 roll } forall .dicttomark
  16.     } bind def
  17. /currenthalftone        % - currenthalftone <dict>
  18.     { mark .currenthalftone
  19.        { { exch pop }        % halftone
  20.          { /HalftoneType 1        % screen
  21.         { /Frequency /Angle /SpotFunction }
  22.            .makestackdict
  23.          }
  24.          { /HalftoneType 2        % colorscreen
  25.         { /RedFrequency /RedAngle /RedSpotFunction
  26.           /GreenFrequency /GreenAngle /GreenSpotFunction
  27.           /BlueFrequency /BlueAngle /BlueSpotFunction
  28.           /GrayFrequency /GrayAngle /GraySpotFunction
  29.         }
  30.            .makestackdict
  31.          }
  32.        }
  33.       exch get exec
  34.     } odef
  35. % Define sethalftone so it converts types 1-4 to type 5.
  36. /.makehalftoneRGBV {    % <dict> <type> <keys> <keysRGBV>
  37.   4 -1 roll exch { 1 index exch get exch } forall 15 1 roll
  38.   14 -2 roll mark 15 1 roll { /Gray /Blue /Green /Red } {
  39.         % stack: v0 v1 v2 type keys comp
  40.     mark
  41.     2 index 0 get 8 -1 roll
  42.     4 index 1 get 9 -1 roll
  43.     6 index 2 get 10 -1 roll
  44.         % stack: type keys comp mark k0 v0 k1 v1 k2 v2
  45.     /HalftoneType 10 index .dicttomark
  46.     counttomark 2 roll
  47.   } forall pop pop
  48.   /Default 1 index .dicttomark exch pop { .sethalftone5 }
  49. } bind def
  50.  
  51. % The value of each entry in .halftonetypes is a procedure:
  52. %    <setdict> <htdict> <<proc>> <setdict'> <htdict'> <sethalftoneproc>
  53. % This allows us to use these procedures both for actually implementing
  54. % sethalftone and for converting subsidiary dictionaries of HalftoneType 5
  55. % halftones.
  56. systemdict begin
  57. 15 dict /.halftonetypes 1 index def begin
  58.   1 {
  59.     mark exch /Default exch .dicttomark { .sethalftone5 }
  60.   } bind def
  61.   2 {
  62.     1 { /Frequency /Angle /SpotFunction } {
  63.       /RedFrequency /RedAngle /RedSpotFunction
  64.       /GreenFrequency /GreenAngle /GreenSpotFunction
  65.       /BlueFrequency /BlueAngle /BlueSpotFunction
  66.       /GrayFrequency /GrayAngle /GraySpotFunction
  67.     } .makehalftoneRGBV
  68.   } bind def
  69.   3 {
  70.     mark exch /Default exch .dicttomark { .sethalftone5 }
  71.   } bind def
  72.   4 {
  73.     3 { /Width /Height /Thresholds } {
  74.       /RedWidth /RedHeight /RedThresholds
  75.       /GreenWidth /GreenHeight /GreenThresholds
  76.       /BlueWidth /BlueHeight /BlueThresholds
  77.       /GrayWidth /GrayHeight /GrayThresholds
  78.     } .makehalftoneRGBV
  79.   } bind def
  80.   5 {
  81.     pop dup length dict copy
  82.     mark 1 index {
  83.         % Even HalftoneType 5 dictionaries have entries other than
  84.         % subsidiary halftone dictionaries.
  85.       dup type /dicttype ne {
  86.     0
  87.       } {
  88.     dup /HalftoneType .knownget not { 0 } if
  89.       } ifelse dup 5 gt {
  90.         % Stack: dict mark ... keyN dictN httypeN
  91.         % Assume that all HalftoneTypes > 5 convert to 5.
  92.     1 index 3 1 roll
  93.     //.halftonetypes exch get exec pop /Default get
  94.         % Stack: dict mark ... keyN setdict'N htdict'N
  95.     counttomark 1 add index 3 index 4 -1 roll put
  96.       } {
  97.     pop
  98.       } ifelse
  99.     } forall .dicttomark { .sethalftone5 }
  100.   } bind def
  101. end
  102. end
  103. /sethalftone {        % <dict> sethalftone -
  104.     % We must create the new dictionary in the same VM as the
  105.     % operand; otherwise, invalidaccess errors may occur.
  106.   .currentglobal 1 index dup gcheck .setglobal
  107.   dup //.halftonetypes 1 index /HalftoneType get get exec exec
  108.   .setglobal pop
  109. } odef
  110. % Redefine setscreen and setcolorscreen to recognize halftone dictionaries,
  111. % and to insert the Frequency and Angle into Type 1 halftones, per
  112. % Adobe TN 5085.
  113. /.fixsethalftonescreen        % <freq> <angle> <dict> .fix...screen
  114.                 %   <freq> <angle> <dict> <dict'>
  115.  { dup dup /HalftoneType get 1 eq
  116.     { dup wcheck not { dup length .copydict } if
  117.       dup /Frequency 5 index put
  118.       dup /Angle 4 index put
  119.     }
  120.    if
  121.  } bind def
  122. /setscreen        % <ignore*2> <dict> setscreen -
  123.     { dup type /dicttype eq
  124.        { .fixsethalftonescreen sethalftone pop pop pop }
  125.        { //setscreen }
  126.       ifelse
  127.     } odef
  128. /setcolorscreen        % <ignore*11> <dict> setcolorscreen -
  129.     { dup type /dicttype eq
  130.        { .fixsethalftonescreen sethalftone 12 { pop } repeat }
  131.        { //setcolorscreen }
  132.       ifelse
  133.     } odef
  134. % Redefine currentscreen and currentcolorscreen to extract the Frequency
  135. % and Angle from Type 1 halftones, per Adobe TN 5085.
  136. /.fixcurrenthalftonescreen    % <dict> .fix... <freq> <angle> <proc>
  137.  { dup /HalftoneType get 1 eq
  138.     { dup /Frequency get 1 index /Angle get }
  139.     { 60 0 }
  140.    ifelse 3 2 roll
  141.  } bind def
  142. /currentscreen        % - currentscreen 60 0 <dict>
  143.     { .currenthalftone
  144.        { { .fixcurrenthalftonescreen }    % halftone
  145.          { }                % screen
  146.          { 12 3 roll 9 { pop } repeat    % colorscreen
  147.            dup type /dicttype eq { .fixcurrenthalftonescreen } if
  148.          }
  149.        }
  150.       exch get exec
  151.     } odef
  152. /currentcolorscreen    % - currentcolorscreen (60 0 <dict>)*4
  153.     { .currenthalftone
  154.        { { .fixcurrenthalftonescreen 3 copy 6 copy }    % halftone
  155.          { 3 copy 6 copy }            % screen
  156.          { }                % colorscreen
  157.        }
  158.       exch get exec
  159.     } odef
  160.  
  161. % ------ User objects ------ %
  162.  
  163. /.UserObjects {
  164.   .userdict /UserObjects
  165. } odef
  166. % In order to get proper error recovery behavior, we need to be careful
  167. % not to pop any operands from the stack until we're done.
  168. % The code below faithfully duplicates the apparent array-growing
  169. % behavior of Adobe interpreters.
  170. /defineuserobject {        % <index> <value> defineuserobject -
  171.   .UserObjects .knownget {
  172.     length dup 3 index le {
  173.         % Stack: index value len
  174.       2 index eq { 1 index 2 mul } { 1 index 1 add } ifelse
  175.       .localvmarray .UserObjects get
  176.       1 index copy pop
  177.       .UserObjects 3 -1 roll put
  178.     } {
  179.       pop
  180.     } ifelse
  181.   } {
  182.     .UserObjects 3 index 1 add 10 .max .localvmarray put
  183.   } ifelse
  184.   .UserObjects get 2 index 2 index put pop pop
  185. } odef
  186. /execuserobject {        % <index> execuserobject -
  187.   .UserObjects get 1 index get exch pop exec
  188. } odef
  189. /undefineuserobject {        % <index> undefineuserobject -
  190.   .UserObjects get 1 index null put pop
  191. } odef
  192.  
  193. % ------ Cache control ------ %
  194.  
  195. % Dummy definitions for cache control operators
  196.  
  197. /ucachestatus {            % - ucachestatus -mark- ? ? ? ? <size>
  198.     mark 0 0 0 0 .userdict /.ucachesize .knownget not { 0 } if
  199. } odef
  200. /setucacheparams {        % -mark- ... <size> setucacheparams -
  201.         % Provoke an appropriate error if needed.
  202.     counttomark 1 lt { () 0 get } if
  203.     0 or .userdict /.ucachesize 2 index 0 .max put cleartomark
  204. } odef
  205.  
  206. end                % level2dict
  207.